triangle_circumcenter_2d Subroutine

subroutine triangle_circumcenter_2d(t, center)

************80

TRIANGLE_CIRCUMCENTER_2D computes the circumcenter of a triangle in 2D.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	t(dim_num,3)
real(kind=8)				::	center(dim_num)

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	asq
real(kind=8),	public		::	bot
real(kind=8),	public		::	csq
integer(kind=4),	public,	parameter	::	dim_num	=	2
real(kind=8),	public		::	top(dim_num)